home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / NW41BAS.ZIP / NW4XACCT.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-05-17  |  1.2 KB  |  25 lines
  1. 'NW4XACCT.BAS - Novell Netware 4.X Interface for Visual Basic for Windows
  2. '       Contains Structure and function definations for Accessing the
  3. 'accounting features for Server and Accounts
  4. 'Version 0.5 - Beta 2
  5. 'Requirements - NONE
  6.  
  7. Type HOLDS_INFO
  8.   objectID As Long
  9.   amount As Long
  10. End Type
  11.  
  12. Type HOLDS_STATUS
  13.   holdsCount As Integer
  14.   holds(16) As HOLDS_INFO
  15. End Type
  16.  
  17. Declare Function NWGetAccountStatus Lib "NWCALLS.DLL" (ByVal conn%, ByVal objectType%, ByVal objectName$, balance&, limit&, holds As HOLDS_STATUS) As Integer
  18. 'installed need to init as String * 1
  19. Declare Function NWQueryAccountingInstalled Lib "NWCALLS.DLL" (ByVal conn%, ByVal installed$) As Integer
  20.  
  21. Declare Function NWSubmitAccountCharge Lib "NWCALLS.DLL" (ByVal conn%, ByVal objectType%, ByVal objectName&, ByVal serviceType%, ByVal chargeAmount&, ByVal holdCancelAmount&, ByVal noteType%, ByVal note$) As Integer
  22. Declare Function NWSubmitAccountHold Lib "NWCALLS.DLL" (ByVal conn%, ByVal objectType%, ByVal objectName$, holdAmount&) As Integer
  23. Declare Function NWSubmitAccountNote Lib "NWCALLS.DLL" (ByVal conn%, ByVal objectType%, ByVal objectName$, ByVal serviceType%, ByVal noteType%, ByVal note$) As Integer
  24.  
  25.